animation.uv source
Generated by code2html
#!/usr/local/bin/perl
require "animation.data";
require "formlib.pl";
&GetFormArgs;
$TITLE = $in{"animation"};
$ENV{"DISPLAY"} = $in{"display"};
$EXECUTABLE = $ANIMATIONS{$TITLE};
$TITLE = "XTango Animation : " . $TITLE;
# Avoid mirroring stdout buffer !!!!
$oldhandle = select (STDIN);
$| = 1;
select (STDOUT);
$| = 1;
select ($oldhandle);
print "Content-Type: text/html\n\n";
print "<HTML><HEAD>";
print "<TITLE> Interact with XTango Animations </TITLE>\n";
print "</HEAD>";
print "<BODY>";
print "<A HREF=\"/gvu/gvutop.html\"><IMG SRC=\"/gvu/images/gvu_logo.gif\"></A>\n";
print "<h2> Interact with XTango Animations </h2>\n";
print "A pair of windows should appear on your screen in a few seconds.\n";
print "This is the XTango animation system which allows you to direct\n";
print "the execution of an algorithm as you watch a visualization of the\n";
print "algorithm. You may need to press the <em>run animation</em>\n";
print "button in the XTango Window to start the animation.\n";
print "<h2> If No Window Ever Appears </h2>\n";
print "If no window appears on your screen, please try again later\n <p>";
print "</BODY>\n";
print "<h6> Last modified: November 14, 1994 by David Carlson (dmc@cc.gatech.edu)</h6>";
print "</HTML>\n";
unless (fork) {
# Ensure that the text is displayed before the animation !!!
close STDOUT;
close STDIN;
unless (fork) {
sleep 1 until getppid == 1;
if (-X $EXECUTABLE){
exec "/usr/bin/X11/xterm -T \"$TITLE\" -e $EXECUTABLE";
}
exit 1;
} # should never get here !!!
exit 0;
}
wait;
Return to Previous